unit SubConProdutos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DB, DBLocals,
  SqlExpr, Provider, DBClient, DBLocal, Mask, UClasseGeral, Contnrs;

type
  TfrmSubConProduto = class(TForm)
    DBGrid1: TDBGrid;
    DtSrc: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    Chave: integer;
  end;

var
  frmSubConProduto: TfrmSubConProduto;

implementation

uses DmGeral, ConEntradas;

{$R *.dfm}

procedure TfrmSubConProduto.FormShow(Sender: TObject);
begin
  DtSrc.DataSet.Open;
end;

procedure TfrmSubConProduto.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  DtSrc.DataSet.Close;
end;

end.
